home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d6 / mailmen.arc / MAILINP.PRG < prev    next >
Encoding:
Text File  |  1991-01-10  |  2.5 KB  |  106 lines
  1. * THIS PROGRAM IS CALLED MAILINP.PRG-- MASTER PROGRAM FOR INPUT OF DATA TO
  2. * MAILING LIST PROGRAM COPYRIGHT JULY 31, 1983 BY PHILIP K. PERLMAN
  3. SET TALK OFF
  4. ERASE
  5. SET TALK OFF
  6. poke 1047,10
  7. STORE T TO CONTINUE
  8. DO WHILE CONTINUE
  9. STORE 0 TO MAINMEN
  10. STORE 0 TO MREC1
  11. USE MAIL 
  12. APPEND BLANK
  13. STORE # TO MREC1
  14. STORE T TO FMT
  15. DO WHILE FMT
  16. SET FORMAT TO GETMAIL
  17. READ
  18. CLEAR GETS
  19. STORE T TO REVIEW
  20. DO WHILE REVIEW
  21. erase
  22. @ 10,5 SAY "Are all you entries correct ?"
  23. @ 12,5 SAY "Press 'R' to review and correct your entries"
  24. @ 14,5 SAY "Press 'Y' to write your entries into the record"
  25. @ 16,5 SAY "Press 'N' to abort entries and return to the menu"
  26. ?
  27. ?
  28. ?
  29. WAIT TO ANS
  30. IF !(ANS) <> 'R' .AND. !(ANS) <> 'Y' .AND. !(ANS) <> 'N'
  31. ERASE
  32. LOOP
  33. ELSE
  34. STORE F TO REVIEW
  35. ENDIF
  36. ENDDO
  37. IF !(ANS) = 'R'
  38. CLEAR GETS
  39. ERASE
  40. LOOP
  41. ELSE
  42. IF !(ANS) = 'Y'
  43. STORE F TO FMT
  44. ERASE
  45. ELSE
  46. STORE F TO FMT
  47. ERASE
  48. SET FORMAT TO SCREEN
  49.      USE
  50.      USE MAIL
  51.      GOTO MREC1
  52.      DELE
  53.      PACK
  54.      RELEASE FMT, REVIEW, ANS, FORMAT,
  55.      RETURN
  56. ENDIF
  57. ENDIF
  58. ENDDO
  59. ERASE
  60. @ 10,5 SAY 'Do you want to add more records ?'
  61. @ 12,5 SAY "Press 'N' to return to the menu"
  62. @ 14,5 SAY 'Press any other key to continue'
  63. ?
  64. ?
  65. ?
  66. ?
  67. WAIT TO ANSWER
  68. IF !(ANSWER) = 'N'
  69.    ERASE
  70.   @ 10,5 SAY "...PROCESSING ENTRIES..."
  71.   USE
  72.   USE MAIL
  73.   INDEX ON PROF1 TO PROF1
  74.   INDEX ON PROF2 TO PROF2
  75.   INDEX ON PROF3 TO PROF3
  76.   INDEX ON LAST TO LAST
  77.   INDEX ON COMPANY TO COMP
  78.    STORE F TO CONTINUE
  79.    RETURN
  80. ENDIF
  81. ENDDO
  82.  
  83.  
  84. S PROGRAM IS CALLED MAILINP.PRG-- MASTER PROGRAM FOR INPUT OF DATA TO
  85. * MAILING LIST PROGRAM COPYRIGHT JULY 31, 1983 BY PHILIP K. PERLMAN
  86. SET TALK OFF
  87. ERASE
  88. SET TALK OFF
  89. poke 1047,10
  90. STORE T TO CONTINUE
  91. DO WHILE CONTINUE
  92. STORE 0 TO MAINMEN
  93. STORE 0 TO MREC1
  94. USE MAIL 
  95. APPEND BLANK
  96. STORE # TO MREC1
  97. STORE T TO FMT
  98. DO WHILE FMT
  99. SET FORMAT TO GETMAIL
  100. READ
  101. CLEAR GETS
  102. STORE T TO REVIEW
  103. DO WHILE REVIEW
  104. erase
  105. @ 10,5 SAY "Are all you entries correct ?"
  106. @ 12,5 SAY "Press 'R' to review and cor